/* GUI CONVERTED from rqliq.p (converter v1.75) Sat Aug 12 23:12:32 2000 */
/* rqliq.p - REQUISITION LEVEL INQUIRY                                      */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                      */
/* All rights reserved worldwide.  This is an unpublished work.             */
/*F0PN*/ /*K1PG*/ /*V8:ConvertMode=Report                                   */
/* REVISION 8.5       LAST MODIFIED: 04/15/97  BY: *J1Q2* Patrick Rowan     */
/* REVISION: 8.6E     LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E     LAST MODIFIED: 05/06/98   BY: *K1PG* A. Shobha */
/* REVISION: 8.6E     LAST MODIFIED: 10/04/98   BY: *J314* Alfred Tan       */
/* REVISION 9.0       LAST MODIFIED: 02/06/99  BY: *M06R* Doug Norton       */
/* REVISION 9.0       LAST MODIFIED: 03/13/99  BY: *M0BD* Alfred Tan        */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00 BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00 BY: *N0KP* myb                */

          /* DISPLAY TITLE */

/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

          {mfdtitle.i "b+ "}

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rqliq_p_1 "Level"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */


          
/*GUI preprocessor Frame A define */
&SCOPED-DEFINE PP_FRAME_NAME A

FORM /*GUI*/ 
             
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
space(1)
             rql_level  label {&rqliq_p_1}
             rql_desc
          with frame a side-labels width 80 attr-space NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-a-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame a = F-a-title.
 RECT-FRAME-LABEL:HIDDEN in frame a = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame a =
  FRAME a:HEIGHT-PIXELS - RECT-FRAME:Y in frame a - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME a = FRAME a:WIDTH-CHARS - .5.  /*GUI*/

/*GUI preprocessor Frame A undefine */
&UNDEFINE PP_FRAME_NAME



          /* SET EXTERNAL LABELS */
          setFrameLabels(frame a:handle).

/*K1PG*/ {wbrp01.i}

          repeat:
/*K1PG*/ if c-application-mode <> 'WEB':U then
             prompt-for rql_level with frame a editing:

                if frame-field = "rql_level" then do:

               /* FIND NEXT/PREVIOUS RECORD */
               {mfnp.i rql_mstr
            rql_level
            rql_level
            rql_level
            rql_level
            rql_lev}

                   if recno <> ? then
            display rql_level rql_desc with frame a.
               recno = ?.
                end.
                else do:
                   status input.
               readkey.
               apply lastkey.
                end.
             end.

/*K1PG*/ {wbrp06.i &command = prompt-for
           &fields = "rql_level"
           &frm = "a"}
/*K1PG*/ if c-application-mode <> 'WEB':U or
/*K1PG*/ (c-application-mode = 'WEB':U and
/*K1PG*/ c-web-request begins 'DATA':U) then do :
    find rql_mstr
        where rql_level = input rql_level no-lock no-error.
             if available rql_mstr then
        display rql_desc with frame a.
             else
        display "" @ rql_desc with frame a.

             status input.

             hide frame b.
/*K1PG*/ end.
             /* SELECT PRINTER */
             {mfselprt.i "terminal" 80}
/*GUI*/ RECT-FRAME:HEIGHT-PIXELS in frame a = FRAME a:HEIGHT-PIXELS - RECT-FRAME:Y in frame a - 2.


         find first rqf_ctrl no-lock no-error.

             for each rql_mstr where rql_level >= input rql_level
             no-lock with frame b width 80 no-attr-space down:

            /* SET EXTERNAL LABELS */
            setFrameLabels(frame b:handle).
            
/*GUI*/ {mfguichk.i } /*Replace mfrpchk*/


                display
           rql_level    column-label {&rqliq_p_1}
           rql_desc
           rql_amt
           rqf_appr_curr WITH STREAM-IO /*GUI*/ .

             end.
             {mfreset.i}
/*GUI*/ {mfgrptrm.i} /*Report-to-Window*/

             {mfmsg.i 8 1}
          end.

/*K1PG*/ {wbrp04.i &frame-spec = a}
